home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 2005 December / DPPCPRO1205.ISO / Essentials / Programming / Basic4GL / Setup Basic4GL v2.3.1.exe / $INSTDIR / Programs / CavernDemo.gb < prev    next >
Encoding:
Text File  |  2005-07-29  |  4.2 KB  |  97 lines
  1. ' Tile maps
  2.  
  3. CavernData:
  4. data 64, 16
  5. data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  6. data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,13,2,2,2,2,2,2,2,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  7. data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,13,2,2,2,2,2,2,2,2,2,2,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  8. data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,13,2,2,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  9. data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,13,2,2,2,3,1,1,1,1,1,1,1,1,1,1
  10. data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,13,2,2,2,2,2,2,3,1,1,1
  11. data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,12,6,11,0,0,0,0,0,0,0,0,12,6,6,6,6,6,6,6,6,11,12,6,6,6,6,6,6,11,12,6,11,0,0,0,0,0,0,0,13,3,1,1
  12. data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,12,5,1,7,11,0,0,0,0,0,12,6,5,1,1,1,1,1,1,1,1,7,5,1,1,1,1,1,1,7,5,1,8,0,0,0,0,0,0,0,0,4,1,1
  13. data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,12,5,1,1,1,7,11,0,0,0,0,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,8,0,0,0,0,0,0,0,12,5,1,1
  14. data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,12,5,1,1,1,1,1,8,0,0,0,12,5,1,1,9,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,10,12,6,6,6,6,6,6,5,1,1,1
  15. data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,1,1,1,1,1,1,7,11,0,0,4,1,1,9,10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,1,1,1,1,1,1,1,1,1,1
  16. data 0,0,0,0,0,0,12,6,6,6,11,0,0,0,0,0,0,12,5,1,1,1,1,1,1,1,8,12,6,5,1,1,7,11,0,0,0,12,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,5,1,1,9,2,2,2,2,3,1,1
  17. data 0,0,0,12,6,6,5,1,1,1,7,11,0,0,0,12,6,5,1,1,1,1,1,1,1,1,7,5,1,1,1,1,1,7,6,11,0,13,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,10,0,0,0,0,4,1,1
  18. data 6,6,6,5,1,1,1,1,1,1,1,7,6,6,6,5,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,11,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,12,5,1,1
  19. data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,9,3,1,1,7,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,11,0,0,0,0,0,4,1,1,1
  20. data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,9,10,13,2,2,2,2,2,2,2,2,2,2,2,2,2,3,1,1,1,1,1,1,8,0,0,0,0,0,4,1,1,1
  21.             
  22. SpaceData: 
  23.     data 10, 10
  24.     data 2,2,3,1,2,1,1,3,2,3
  25.     data 3,3,2,3,2,3,2,3,2,2
  26.     data 3,1,2,3,3,4,3,2,3,3
  27.     data 2,1,4,2,5,3,3,1,2,1
  28.     data 2,3,2,3,3,1,2,3,3,3
  29.     data 2,2,2,1,2,2,3,1,3,2
  30.     data 3,1,3,1,2,2,2,2,1,3
  31.     data 2,1,2,4,1,3,2,3,2,3
  32.     data 2,2,3,2,3,3,2,3,3,1
  33.     data 3,2,1,2,3,2,1,2,2,1
  34.  
  35. ' Data
  36.     
  37.     dim &cavernTiles ()(), &spaceTiles ()(), &tiles ()()                        ' Tile maps
  38.     dim cavernTextures (ImageStripFrames ("data\CavernTiles.png", 32) - 1)      ' Sprite sets
  39.     dim spaceTextures (ImageStripFrames ("data\SpaceTiles.png") - 1)
  40.     dim cavernTileMap, spaceTileMap                                             ' Sprite objects
  41.     dim x, y, xSize, ySize, i
  42.  
  43. ' Subroutines
  44.  
  45. goto Start
  46.  
  47. LoadTiles:
  48.     
  49.     ' Read grid size
  50.     read xSize, ySize
  51.     
  52.     ' Allocate 2D array. 0 - (xSize-1), 0 - (ySize-1)
  53.     alloc tiles, xSize - 1, ySize - 1
  54.  
  55.     ' Read in data
  56.     for y = 0 to ySize - 1
  57.         for x = 0 to xSize - 1
  58.             read i
  59.             tiles (x)(y) = i
  60.         next
  61.     next
  62.     return
  63.  
  64. Start:
  65.     ' Load textures
  66.     cavernTextures = LoadImageStrip ("data\CavernTiles.png", 32)
  67.     spaceTextures = LoadImageStrip ("data\SpaceTiles.png")    
  68.     
  69.     ' Load tile maps
  70.     reset CavernData: gosub LoadTiles: &cavernTiles = &tiles
  71.     reset SpaceData: gosub LoadTiles: &spaceTiles = &tiles      
  72.     
  73.     ' Create tile map objects
  74.     TextMode (TEXT_BUFFERED)
  75.  
  76.     cavernTileMap = NewTileMap (cavernTextures)
  77.     SprSetTiles (cavernTiles)
  78.     SprSetParallax (true)
  79.     SprSetSolid (false)
  80.     SprSetXRepeat (true)
  81.     SprSetYRepeat (false)
  82.     
  83.     spaceTileMap = NewTileMap (spaceTextures)
  84.     SprSetTiles (spaceTiles)
  85.     SprSetParallax (true)
  86.     SprSetZOrder (400)
  87.     SprSetXRepeat (true)
  88.     SprSetYRepeat (true)
  89.     SprSetScale (4)
  90.                      
  91.     while true
  92.         while SyncTimer (20)
  93.             SprCameraSetPos (SprCameraPos () + vec2 (2, 0))
  94.         wend
  95.         DrawText ()
  96.     wend
  97.